<!--#INCLUDE FILE="general.asp"-->
<%	'-----------------Familias  
topage=Request.ServerVariables("HTTP_REFERER") 
'topage=request("topage") & ""

id=request("id") & ""
CODIGO = request("CODIGO")
NOMBRE = request("clienteNOMBRE")
Cliente_TEOS = request("Cliente_TEOS") & ""
IF Cliente_TEOS<>"" THEN Cliente_TEOS=Replace(Cliente_TEOS,"'","''")

IF NOMBRE<>"" THEN NOMBRE=Replace(NOMBRE,"'","''")
DIRECCION = request("clienteDIRECCION") 
IF DIRECCION<>"" THEN DIRECCION=Replace(DIRECCION,"'","''")
POBLACION = request("clientePOBLACION")
IF POBLACION<>"" THEN POBLACION=Replace(POBLACION,"'","''")
NIF = request("clienteNIF")
CODIPOS = request("clienteCODIPOS") 
IF CODIPOS<>"" THEN CODIPOS=Replace(CODIPOS,"'","''")
TELEFONO = request("clienteTELEFONO")
IF TELEFONO<>"" THEN TELEFONO=Replace(TELEFONO,"'","''")
E_MAIL = request("clienteE_MAIL")
IF E_MAIL<>"" THEN E_MAIL=Replace(E_MAIL,"'","''")
NOTAS = request("clienteNOTAS")
IF NOTAS<>"" THEN NOTAS=Replace(NOTAS,"'","''")
PROVINCIA = request("clientePROVINCIA")
IF PROVINCIA<>"" THEN PROVINCIA=Replace(PROVINCIA,"'","''")
CUENTA = request("clienteCUENTA")
IF CUENTA<>"" THEN CUENTA=Replace(CUENTA,"'","''")
'Response.Write "IVA:" & request.form("clienteIMP")
'Response.Write ":<br>RE:" & request.form("clienteRE")
'Response.Write ":" 
'Response.End
if request("clienteFPAGO")<>"" then FPAGO = request("clienteFPAGO") else FPAGO=1
if len(request("clienteRE"))<>0 then RE = "-1" else RE="0"
if len(request("clienteIMP"))<>0 then cIMP = "-1" else cIMP="0"
'if RE="-1" then cIMP="-1"
if request("clienteDTO")<>"" then DTO = request("clienteDTO") else DTO=0
if request("clienteDTOPP")<>"" then DTOpp = request("clienteDTOPP") else DTOpp=0
if request("clienteAVISAR")<>"" then AVISAR = request("clienteAVISAR") else AVISAR="0"
if request("clienteTARIFA")<>"" then TARIFA = request("clienteTARIFA") else TARIFA=0
if request("clienteSERIE")<>"" then SERIE = request("clienteSERIE") else SERIE="A"
if request("clienteCAUCION")<>"" then caucion = request("clienteCAUCION") else caucion=6000
TELEFONO_2 = request("clienteTELEFONO_2")
IF TELEFONO_2<>"" THEN TELEFONO_2=Replace(TELEFONO_2,"'","''")
CONTACTO = request("clienteCONTACTO")
IF CONTACTO<>"" THEN CONTACTO=Replace(CONTACTO,"'","''")
if request("clienteIUSUARIO")<>"" then iusuario = request("clienteIUSUARIO") else IUSUARIO=NOMBRE
if request("clienteICLAVE")<>"" then iclave = request("clienteICLAVE") else ICLAVE="1234"
comercial = request("clienteCOMERCIAL")



if CODIGO="" then 'Cliente Nuevo
	sql=  "SELECT MAX(CODIGO) AS Cod FROM CLIENTES "
	rs.open sql, conn
	if not rs.EOF AND rs("Cod")<>"" then
		cod=rs("Cod")
		if isnumeric(cod) then
			CODIGO=Cod + 1
		else
			CODIGO=Cod + "1"
		end if
	else
		CODIGO="001"
	end if
	rs.close
		tipoComm="INSERT"				'ALTA Cliente
		
		sql="INSERT INTO clientes ( CODIGO, NOMBRE, DIRECCION, POBLACION, "
		sql= sql & " NIF, Cliente_TEOS, CODIPOS, TELEFONO, E_MAIL, "
		sql= sql & " NOTAS, PROVINCIA, CUENTA, FPAGO, "
		sql= sql & " RE, [IMP], DTOpp, DTO, AVISAR, TARIFA, "
		sql= sql & " SERIE, caucion, TELEFONO_2, CONTACTO, iusuario, iclave, comercial ) "
		sql=sql & " VALUES('" & CODIGO & "','" & NOMBRE & "','" &  DIRECCION & "','" &  POBLACION & "', "
		sql= sql & " '" & NIF & "','" & Cliente_TEOS  & "','" &  CODIPOS & "','" &  TELEFONO & "','" &  E_MAIL & "'," 
		sql= sql & " '" & NOTAS & "','" &  PROVINCIA & "','" &  CUENTA & "'," &  FPAGO & "," 
		sql= sql & " '" & RE & "','" &  cIMP & "'," &  DTOpp & "," &  DTO & ",'" &  AVISAR & "'," &  TARIFA & ","
		sql= sql & " '" & SERIE & "'," &  caucion & ",'" &  TELEFONO_2 & "','" &  CONTACTO & "','" &  iusuario & "','" &  iclave & "','" &  comercial   & "' "
	sql=sql & " )" 
Else
	tipoComm="UPDATE"				'Mod Cliente
	sql="UPDATE clientes set  "
	sql=sql & " NOMBRE = '" & NOMBRE & "' ,"
	sql=sql & " Cliente_TEOS = '" & Cliente_TEOS & "' ,"
	
	sql=sql & " DIRECCION = '" & DIRECCION & "' ,"
	sql=sql & " POBLACION = '" & POBLACION & "' ,"
	sql=sql & " NIF = '" & NIF & "' ,"
	sql=sql & " CODIPOS = '" & CODIPOS & "' ,"
	sql=sql & " TELEFONO = '" & TELEFONO & "' ,"
	sql=sql & " E_MAIL = '" & E_MAIL & "' ,"
	sql=sql & " NOTAS = '" & NOTAS & "' ,"
	sql=sql & " PROVINCIA = '" & PROVINCIA & "' ,"
	sql=sql & " CUENTA = '" & CUENTA & "' ,"
	sql=sql & " FPAGO = " & FPAGO & " ,"    'NUMERICO
	sql=sql & " RE = '" & RE & "' ,"		'SI/NO
	sql=sql & " [IMP] = '" & cIMP & "' ,"	'SI/NO
	sql=sql & " DTO = " & DTO & " ,"    'NUMERICO
	sql=sql & " DTOpp = " & DTOpp & " ,"    'NUMERICO
	sql=sql & " AVISAR = '" & AVISAR & "' ,"		'SI/NO
	sql=sql & " TARIFA = " & TARIFA & " ,"    'NUMERICO
	sql=sql & " SERIE = '" & SERIE & "' ,"
	sql=sql & " caucion = " & caucion & " ,"    'NUMERICO
	sql=sql & " TELEFONO_2 = '" & TELEFONO_2 & "' ,"
	sql=sql & " CONTACTO = '" & CONTACTO & "' ,"
	sql=sql & " iusuario = '" & iusuario & "' ,"
	sql=sql & " iclave = '" & iclave & "' ,"
	sql=sql & " COMERCIAL = '" & COMERCIAL & "' "
	
	sql=sql & " WHERE CODIGO = '" & CODIGO & "' "
End if
'			response.write sql & "<br>"
'			response.end
'rs.close

Set RS = conn.execute(sql)

Response.redirect topage 

%>

